home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / c / comtrackerv1.0.lha / ComTracker / Install < prev    next >
Encoding:
Text File  |  1997-04-06  |  2.2 KB  |  93 lines
  1. ; Install Script for Commodity Tracker v1.0
  2. ; Written by Alvaro Thompson
  3.  
  4. (complete 0)
  5.  
  6. (if (< (/ (getversion) 65536) 37)
  7.        (abort ("\nYou must have OS2+ to run ComTracker!")
  8. ))
  9.  
  10.  
  11. (set #intro
  12. (cat "\n\nWelcome to the Commodity Tracker installer"
  13.      "\n\n\nDo you wish to continue?"
  14. ))
  15.  
  16. (set #info
  17. (cat "\nCommodity Tracker is a Tracker Player"
  18.      "\nwhich can play both MEDs and MODs,"
  19.      "\nand can also play in the background"
  20.      "\nas a Commodity"
  21.      "\n\nRequires OS2+"
  22. ))
  23.  
  24. (set #whichdir
  25. (cat "Which directory should ComTracker be installed in?"
  26. ))
  27.  
  28. (set #magicwb
  29. (cat "Do you want to install the MagicWB icons?"
  30. ))
  31.  
  32. (set #magicwb-help
  33. (cat "\nThis will install the program, as well as"
  34.      "\ninstalling MagicWB icons"
  35. ))
  36.  
  37.  
  38. (complete 0
  39. (message #intro))
  40.  
  41. (message #info)
  42.  
  43. (set target1
  44. (askdir (prompt #whichdir)
  45. (help @askdir-help)
  46. (default "Sys:")
  47. ))
  48.  
  49. (set trgt_dir target1)
  50.  
  51. (set @default-dest (tackon trgt_dir "ComTracker"))
  52.  
  53.  
  54. (set MWBicon (askchoice (prompt #magicwb)
  55.                         (choices "Yes" "No")
  56.                         (default 0)
  57.                         (help #magicwb-help
  58. )))
  59.  
  60. (makedir (tackon target1 "ComTracker" ) (infos))
  61. (complete 45)
  62. (copyfiles (source "ComTracker"
  63.            (dest (tackon trgt_dir "ComTracker/" ))))
  64. (complete 60)
  65. (if (= MWBicon 1)
  66. (copyfiles (source "ComTracker.info"
  67.            (dest (tackon trgt_dir "ComTracker/" )))))
  68. (if (= MWBicon 0)
  69. (copyfiles (source "MagicWB/ComTracker.info"
  70.            (dest (tackon trgt_dir "ComTracker/" )))))
  71. (complete 70)
  72. (copyfiles (source "ComTracker.Doc"
  73.            (dest (tackon trgt_dir "ComTracker/" ))))
  74. (if (= MWBicon 1)
  75. (copyfiles (source "ComTracker.Doc.info"
  76.            (dest (tackon trgt_dir "ComTracker/" )))))
  77. (if (= MWBicon 0)
  78. (copyfiles (source "MagicWB/ComTracker.Doc.info"
  79.            (dest (tackon trgt_dir "ComTracker/" )))))
  80. (complete 80)
  81. (copyfiles (source "ComTracker.Guide"
  82.            (dest (tackon trgt_dir "ComTracker/" ))))
  83. (complete 90)
  84. (if (= MWBicon 1)
  85. (copyfiles (source "ComTracker.Guide.info"
  86.            (dest (tackon trgt_dir "ComTracker/" )))))
  87. (if (= MWBicon 0)
  88. (copyfiles (source "MagicWB/ComTracker.Guide.info"
  89.            (dest (tackon trgt_dir "ComTracker/" )))))
  90. (complete 100)
  91.  
  92. (exit)
  93.